home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Information / WebSites / Eyetech / DOWNLOAD / TURBO007.LHA / tp706_e / extra / BJC-Utility < prev    next >
Encoding:
Text File  |  2000-01-14  |  27.0 KB  |  1,096 lines
  1. ; BJC Setup Utility
  2. ; (C) 1999 IrseeSoft
  3. ; V1.0 14.6.99
  4. ;
  5. ; model    features
  6. ; BJC    cleaning    nozzlecheck    head_alignment    auto_power    setup_for_turboprint*)
  7. ;
  8. ; 4200    x1        x        -        x        x
  9. ; 4300    x1        x        -        x        x
  10. ; 4400    x1        x        -        x        x
  11. ; 6000  x3        x        x4        x        -5
  12. ; 7000    x3        x        x6        x        -5        
  13. ; 7100    x3        x        x6        x        -5        
  14. ;
  15. ;remarks:
  16. ;
  17. ;*) setup_for_turboprint sets the printer to LQ mode, page size to 
  18. ;   letter (factory setting table 1) or A4 (factory setting table 3)
  19. ;
  20. ;x1 both black and colour heads are cleaned
  21. ;x3 all / black / colour can be chosen
  22. ;x4 automatic head_alignment
  23. ;-5 setup_for_turboprint is not necessary
  24. ;x6 manual head alignment
  25.  
  26. ;language specific strings go here
  27.  
  28. (if (= @language "deutsch")
  29. (
  30.  
  31. (set #which-printer 
  32.  (cat "Das BJC-Utility dient zum Steuern und Einrichten Ihres Canon BJC "
  33.     "Druckers. Sie können damit z.B. Testausdrucke machen, Düsen reinigen usw.\n\n"
  34.     "Bitte wählen Sie ihren Drucker:"
  35.  )
  36. )
  37. (set #which-command "Welche Funktion wollen Sie ausführen?")
  38.  
  39. (set #setup     "Drucker-Setup für Turboprint")
  40. (set #cleaning1 "Reinigen des Druckkopfes")
  41. (set #cleaning2 "Intensivreinigen des Druckkopfes")
  42. (set #nozzlecheck "Düsentestdruck")
  43. (set #alignment "Ausrichten der Druckköpfe")
  44.  
  45. (set #command-help 
  46.  (cat "Hilfe zu den Funktionen:\n\n"
  47.     "Reinigen des Druckkopfes\n\n"
  48.  
  49.     "Diese Funktion sollten Sie wählen, falls der Ausdruck "
  50.     "horizontale Streifen aufweist. Der Drucker 'spült' die "
  51.     "Düsen mit etwas Tinte durch.\n"
  52.     "Das Reinigungsergebnis kann durch den Düsentestdruck"
  53.     "überprüft werden\n\n"
  54.  
  55.     "Intensivreinigen\n\n"
  56.  
  57.     "Falls durch 'Reinigen' noch keine einwandfreie Druckqualität "
  58.     "erreicht wird, sollten Sie 'Intensivreinigen' versuchen. "
  59.     "Falls auch danach noch verstopfte Düsen im Testdruck sichtbar "
  60.     "sind, muß eventuell der Druckkopf ausgetauscht werden.\n\n"
  61.  
  62.     "Düsentestdruck\n\n"
  63.  
  64.     "Druckt ein Testmuster, in dem alle Düsen des Druckkopfes "
  65.     "verwendet werden. Verstopfte "
  66.     "Düsen sind durch fehlende Balken im Muster zu erkennen.\n\n"
  67.  
  68.     "Ausrichten der Druckköpfe (nur für bestimmte Drucker)\n\n"
  69.  
  70.     "Damit werden farbiger und schwarzer Druckkopf korrekt zueinander "
  71.     "ausgerichtet und / oder der bidirektionale Druck "
  72.     "justiert.\n"
  73.     "Dies muß nach dem Einsetzen eines neuen Druckkopfes "
  74.     "durchgeführt werden.\n\n"
  75.  
  76.     "Drucker-Setup für Turboprint (nur für bestimmte Drucker)\n\n"
  77.  
  78.     "Dieses Kommando stellt die Grundeinstellungen Ihres Druckers "
  79.     "passen für den Ausdruck mit Turboprint ein, z.B. wird die "
  80.     "Emulation für den Textausdruck auf Epson LQ eingerichtet.\n"
  81.     "Dies muß nur einmal durchgeführt werden, der Drucker "
  82.     "speichert die Einstellungen dauerhaft.\n\n"
  83.  )
  84. )
  85.  
  86. (set #which-clean "Wählen Sie den zu reinigenden Druckkopf:")
  87. (set #clean-all "Alle Farben")
  88. (set #clean-black "Schwarz")
  89. (set #clean-colour "Farbe")
  90. (set clean-all    0)
  91. (set clean-black  1)
  92. (set clean-colour 2)
  93. (set #clean-info 
  94.   (cat "*** Druckkopfreinigung ***\n\n"
  95.     "Stellen Sie sicher, daß der "
  96.     "Drucker eingeschaltet ist.\n\n"
  97.     "Möchten Sie die Druckkopfreinigung jetzt durchführen?"
  98.   )
  99. )
  100. (set #clean2-info 
  101.   (cat "Bei der Intensivreinigung wird eine "
  102.     "größere Menge Tinte verbraucht.\n\n"
  103.     "Stellen Sie sicher, daß der "
  104.     "Drucker eingeschaltet ist.\n\n"
  105.     "Möchten Sie die Intensivreinigung jetzt durchführen?"
  106.   )
  107. )
  108. (set #clean-end
  109.   (cat "Bitte warten Sie, bis der Reinigungsvorgang abgeschlossen ist.\n\n"
  110.     "Das Reinigungsergebnis kann mit Hilfe des Düsentestdrucks "
  111.     "überprüft werden. Starten Sie dazu das BJC-Utility nochmals."
  112.   )
  113. )
  114.  
  115. (set #load-paper 
  116.   (cat "Bitte stellen Sie sicher, daß der Drucker eingeschaltet "
  117.     "ist und daß Papier eingelegt ist."
  118.   )
  119. )
  120.  
  121. (set #utility-end
  122.   (cat "Bitte warten Sie, bis der Vorgang abgeschlossen ist.\n\n" 
  123.     "Das BJC-Utility wird nun beendet."
  124.   )
  125. )
  126.  
  127. (set #nozzlecheck-info
  128.   (cat "*** Düsen-Testdruck ***\n\n"
  129.     #load-paper
  130.     "\n\nMöchten Sie die Düsen-Testdruck jetzt starten?"
  131.   )
  132. )
  133.  
  134. (set #nozzlecheck-end
  135.   (cat 
  136.     "Für jede Farbe wird eine Reihe "
  137.     "horizontalen Linien gedruckt. Diese Linien entsprechen den "
  138.     "Düsen des Druckkopfes.\n\n"
  139.     "Falls Linien fehlen oder unsauber gedruckt werden, sind die "
  140.     "entsprechenden Düsen versopft. Bitte starten Sie in diesem Fall "
  141.     "das BJC-Utility neu und wählen Sie die Reinigungsfunktion.\n"
  142.   )
  143. )
  144.  
  145. (set #setup-info
  146.   (cat  "*** Drucker-Setup ***\n\n"
  147.     "Diese Funktion stellt die Grundeinstellungen Ihres Druckers "
  148.     "für den Ausdruck mit Turboprint ein, z.B. wird die "
  149.     "Emulation für den Textausdruck auf Epson LQ eingerichtet.\n\n"
  150.     "Stellen Sie sicher, daß der "
  151.     "Drucker eingeschaltet ist.\n\n"
  152.     "Möchten Sie das Drucker-Setup jetzt durchführen?"
  153.   )
  154. )
  155. (set #setup-size
  156.   (cat  
  157.     "Welches Papierformat verwenden Sie hauptsächlich?"
  158.   )
  159. )
  160. (set #setup-end
  161.   (cat 
  162.     "Der Drucker wurde nun für die Verwendung mit Turboprint "
  163.     "konfiguriert.\n\n"
  164.     "Die Einstellungen bleiben auch beim Ausschalten dauerhaft gespeichert."
  165.   )
  166. )
  167.  
  168. (set #align-info
  169.   (cat
  170.     "Diese Funktion sollten Sie aufrufen, wenn Sie eine "
  171.     "neue Druckpatrone einsetzen. Beim Wechsel zwischen "
  172.     "schon benutzter Farb- und Fotopatrone muß die Ausrichtung nicht "
  173.     "erneut aufgerufen werden.\n" 
  174.     #load-paper
  175.     "\n\nMöchten Sie die Ausrichtung jetzt durchführen?"
  176.   )
  177. )
  178.  
  179. (set #alignauto-info
  180.   (cat
  181.     "*** Automatische Ausrichtung der Druckköpfe ***\n\n"
  182.     #align-info
  183.   )
  184. )
  185.  
  186. (set #alignmanual-info
  187.   (cat
  188.     "*** Manuelle Ausrichtung der Druckköpfe ***\n\n"
  189.     "Dabei werden zwei Seiten mit Testmustern ausgedruckt, die Sie "
  190.     "auf korrekte Ausrichtung prüfen müssen.\n\n"
  191.     #align-info
  192.   )
  193. )
  194.  
  195. (set #alignauto-end
  196.   (cat
  197.     "Bitte warten Sie, bis der Drucker die Seite ausgeworfen hat.\n\n"
  198.     "Das BJC-Utility wird nun beendet."
  199.   )
  200. )
  201.  
  202. (set #alignmanual-end
  203.   (cat
  204.     "Die Druckkopfausrichtung ist abgeschlossen. Die Einstellungen "
  205.     "können durch Aufruf der Funktion 'Düsentestdruck' überprüft werden.\n\n"
  206.     "Das BJC-Utility wird nun beendet."
  207.   )
  208. )
  209.  
  210. (set #align-waitforpage
  211.   (cat
  212.     "Warten Sie, bis der Drucker die Seite ausgeworfen hat und drücken Sie "
  213.     "'Weiter', falls die Seite einwandfrei bedruckt wurde.\n\nFalls die "
  214.     "Seite verrutscht ist oder unvollständig gedruckt wurde, wählen Sie "
  215.     "'Abbrechen' und starten Sie das BJC-Utility erneut."
  216.   )
  217. )
  218.  
  219. (set #align7100-help
  220.   (cat
  221.     "Sehen Sie sich die Muster "
  222.     "an, und geben Sie die Nummern der Spalten an, in "
  223.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  224.     "bilden."
  225.   )
  226. )
  227.  
  228. (set #align7100-step1
  229.   (cat
  230.     "Der Standarddruckmodus wird eingestellt. Sehen Sie sich die Muster "
  231.     "A, B, C und D an und geben Sie die Nummern der Spalten an, in "
  232.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  233.     "bilden.\n\n"
  234.     "A. Obere Reihe: Beste vertikale Ausrichtung?"
  235.   )
  236. )
  237. (set #align7100-step2
  238.   (cat
  239.     "B. Linke Spalte: Horizontale Ausrichtung\n\n"
  240.     "Wählen Sie die Nummer der Spalte, in "
  241.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  242.     "bilden."
  243.   )
  244. )
  245. (set #align7100-step3
  246.   (cat
  247.     "C. Mittlere Spalte: Bidirektionale Ausrichtung 1\n\n"
  248.     "Wählen Sie die Nummer der Spalte, in "
  249.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  250.     "bilden."
  251.   )
  252. )
  253. (set #align7100-step4
  254.   (cat
  255.     "D. Rechte Spalte: Bidirektionale Ausrichtung 2\n\n"
  256.     "Wählen Sie die Nummer der Spalte, in "
  257.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  258.     "bilden."
  259.   )
  260. )
  261.  
  262. (set #align7100-nextpage
  263.   (cat
  264.     "Als nächstes wird der Hochgeschwindigkeits-Druckmodus eingestellt.\n\n"
  265.     "Legen Sie in den Papiereinzug ein Blatt Papier ein und klicken Sie auf 'Weiter'. "
  266.     "Das Muster für den Hochgeschwindigkeits-Druckmodus wird gedruckt."
  267.   )
  268. )
  269. (set #align7100-step5
  270.   (cat
  271.     "Sehen Sie sich die Muster "
  272.     "E, F, G und H an und geben Sie die Nummern der Spalten an, in "
  273.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  274.     "bilden.\n\n"
  275.     "E. Linke obere: Beste horizontale Ausrichtung?"
  276.   )
  277. )
  278. (set #align7100-step6
  279.   (cat
  280.     "F. Rechte obere Spalte: Bidirektionale Ausrichtung 1\n\n"
  281.     "Wählen Sie die Nummer der Spalte, in "
  282.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  283.     "bilden."
  284.   )
  285. )
  286. (set #align7100-step7
  287.   (cat
  288.     "G. Linke untere Spalte: Horizontale Ausrichtung 2\n\n"
  289.     "Wählen Sie die Nummer der Spalte, in "
  290.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  291.     "bilden."
  292.   )
  293. )
  294. (set #align7100-step8
  295.   (cat
  296.     "H. Rechte untere Spalte: Bidirektionale Ausrichtung 2\n\n"
  297.     "Wählen Sie die Nummer der Spalte, in "
  298.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  299.     "bilden."
  300.   )
  301. )
  302. (set #align7000-step1
  303.   (cat
  304.     "Der Standarddruckmodus wird eingestellt. Sehen Sie sich die Muster "
  305.     "A, B und C an und geben Sie die Nummern der Spalten an, in "
  306.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  307.     "bilden.\n\n"
  308.     "A. Obere Reihe: Beste vertikale Ausrichtung?"
  309.   )
  310. )
  311. (set #align7000-step2
  312.   (cat
  313.     "B. Linke Spalte: Horizontale Ausrichtung\n\n"
  314.     "Wählen Sie die Nummer der Spalte, in "
  315.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  316.     "bilden."
  317.   )
  318. )
  319. (set #align7000-step3
  320.   (cat
  321.     "C. Rechte Spalte: Bidirektionale Ausrichtung\n\n"
  322.     "Wählen Sie die Nummer der Spalte, in "
  323.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  324.     "bilden."
  325.   )
  326. )
  327. (set #align7000-nextpage
  328.   (cat
  329.     "Als nächstes wird der hochauflösende Druckmodus eingestellt.\n\n"
  330.     "Legen Sie in den Papiereinzug ein Blatt Papier ein und klicken Sie auf 'Weiter'. "
  331.     "Das Muster für den hochauflösenden Druckmodus wird gedruckt."
  332.   )
  333. )
  334. (set #align7000-step4
  335.   (cat
  336.     "Sehen Sie sich das Muster "
  337.     "D an und geben Sie die Nummer der Spalte an, in "
  338.     "denen die roten und schwarzen Linien eine durchgehende Linie "
  339.     "bilden."
  340.   )
  341. )
  342.  
  343. )
  344.  
  345. ;----------------------
  346. ;else: language english
  347. ;----------------------
  348. (
  349.  
  350. (set #which-printer 
  351.  (cat "The BJC-Utility let's you setup and control your Canon BJC "
  352.     "printer. E.g. you can make test prints, clean the print heads, etc.\n\n"
  353.     "Please choose your printer:"
  354.  )
  355. )
  356. (set #which-command "Please choose a function:")
  357.  
  358. (set #setup     "Setup your printer for Turboprint")
  359. (set #cleaning1 "Print head cleaning")
  360. (set #cleaning2 "Deep print head cleaning")
  361. (set #nozzlecheck "Print a nozzle check pattern")
  362. (set #alignment "Align the print heads")
  363.  
  364. (set #command-help 
  365.  (cat "Help for the maintenance functions:\n\n"
  366.     "Print head cleaning\n\n"
  367.  
  368.     "Choose this function if the printout is of poor quality, "
  369.     "especially if there are horizontal 'streaks' in the printout. "
  370.     "Cleaning the print heads consumes ink so clean the print "
  371.     "heads only when necessary.\n"
  372.     "The result of the cleaning can be confirmed by printing a "
  373.     "nozzle check pattern.\n\n"
  374.  
  375.     "Deep print head cleaning\n\n"
  376.  
  377.     "If the nozzle check pattern is still of poor quality "
  378.     "after print head cleaning, "
  379.     "you should execute 'deep print head cleaning'. "
  380.     "If that doesn't improve results the ink cartridge "
  381.     "should be replaced.\n\n"
  382.  
  383.     "Print a nozzle check pattern\n\n"
  384.  
  385.     "The nozzle check pattern confirms whether the inks are "
  386.     "being correctly ejected from the print head nozzles "
  387.     "and whether the print heads are correctly aligned "
  388.     "(only for printers whith an alignment function). "
  389.     "Print a nozzle check pattern if the printout is "
  390.     "streaked or the colour tones are not correct.\n"
  391.     "If there are broken or missing lines in the pattern, "
  392.     "some nozzles are clogged or the ink level is low. "
  393.     "In that case, please perform print head cleaning and / or replace "
  394.     "the ink cartridge.\n\n"
  395.  
  396.     "Align the print heads (only for some printers)\n\n"
  397.  
  398.     "New print heads must be first aligned to ensure "
  399.     "optimum results in printing.\n\n"
  400.  
  401.     "Setup your printer for Turboprint (only for some printers)\n\n"
  402.  
  403.     "This function programs the printer settings "
  404.     "for use with the Turboprint driver, "
  405.     "e.g. the emulation for text printing is set to 'Epson-LQ'.\n"
  406.     "The settings are stored permanently in the printer "
  407.     "so printer setup is necessary only once.\n\n"
  408.  )
  409. )
  410.  
  411. (set #which-clean "Please choose the print head that should be cleaned:")
  412. (set #clean-all "All colours")
  413. (set #clean-black "Black")
  414. (set #clean-colour "Colour")
  415. (set clean-all    0)
  416. (set clean-black  1)
  417. (set clean-colour 2)
  418. (set #clean-info 
  419.   (cat "*** Print head cleaning ***\n\n"
  420.     "Make sure that the printer is switched on and connected "
  421.     "to your Amiga.\n\n "
  422.     "Do you want to clean the print heads now?"
  423.   )
  424. )
  425. (set #clean2-info 
  426.   (cat "Deep cleaning consumes a larger amount of ink\n\n"
  427.     "Make sure that the printer is switched on and connected to "
  428.     "your Amiga.\n\n"
  429.     "Do you want to start deep cleaning now?"
  430.   )
  431. )
  432. (set #clean-end
  433.   (cat "Please wait until cleaning is finished (about 30 seconds).\n\n"
  434.     "The result of cleaning can be confirmed by printing a nozzle check "
  435.     "pattern. Please restart 'BJC-Utility' for this purpose."
  436.   )
  437. )
  438.  
  439. (set #load-paper 
  440.   (cat "Make sure that the printer is switched on, properly connected "
  441.     "to your Amiga and loaded with paper."
  442.   )
  443. )
  444.  
  445. (set #utility-end
  446.   (cat "Please wait until the printer has finished the task.\n\n"
  447.     "BJC-Utility ends now."
  448.   )
  449. )
  450.  
  451. (set #nozzlecheck-info
  452.   (cat "*** Nozzle check pattern ***\n\n"
  453.     #load-paper
  454.     "\n\nDo you want to print a nozzle check pattern now?"
  455.   )
  456. )
  457.  
  458. (set #nozzlecheck-end
  459.   (cat 
  460.     "For each colour, a pattern of horizontal lines will be printed. "
  461.     "Each line stands for one nozzle of the print head. "
  462.     "\n\n"
  463.     "If lines are broken or missing, the corresponding nozzles are "
  464.     "clogged or the ink level is low. Please restart 'BJC-Utility' "
  465.     "and choose print head cleaning. If that doesn't help, the "
  466.     "ink cartridge must be replaced.\n"
  467.   )
  468. )
  469.  
  470. (set #setup-info
  471.   (cat  "*** Printer setup for Turboprint ***\n\n"
  472.     "This function changes the printer settings "
  473.     "for use with the Turboprint driver, "
  474.     "e.g. the emulation for text printing is set to 'Epson-LQ'.\n"
  475.     "Printer setup is necessary only once because "
  476.     "the settings are stored permanently in the printer.\n\n"
  477.     "Make sure that the printer is switched on and connected to "
  478.     "your Amiga.\n\n"
  479.     "Do you want to perform printer setup now?"
  480.   )
  481. )
  482. (set #setup-size
  483.   (cat  
  484.     "Which paper size do you use mainly?"
  485.   )
  486. )
  487. (set #setup-end
  488.   (cat 
  489.     "The printer is now set up for use with Turboprint. "
  490.   )
  491. )
  492.  
  493. (set #align-info
  494.   (cat
  495.     "You should perform this function when you insert a "
  496.     "new print head cartridge. It is not necessary to align "
  497.     "the printer when switching between a colour and a "
  498.     "photo cartridge that have already been aligned.\n" 
  499.     #load-paper
  500.     "\n\nDo you want to start alignment now?"
  501.   )
  502. )
  503.  
  504. (set #alignauto-info
  505.   (cat
  506.     "*** Automatic print head alignment ***\n\n"
  507.     #align-info
  508.   )
  509. )
  510.  
  511. (set #alignmanual-info
  512.   (cat
  513.     "*** Manual print head alignment ***\n\n"
  514.     "Two pages with alignment patterns will be printed. "
  515.     "You will have to check them for proper alignment.\n\n"
  516.     #align-info
  517.   )
  518. )
  519.  
  520. (set #alignauto-end
  521.   (cat
  522.     "Please wait until the page has been ejected.\n\n"
  523.     "BJC-Utility ends now."
  524.   )
  525. )
  526.  
  527. (set #alignmanual-end
  528.   (cat
  529.     "Print head alignment has been completed. "
  530.     "Use the function 'print nozzle check pattern' to verify "
  531.     "proper alignment.\n\n"
  532.     "BJC-Utility ends now."
  533.   )
  534. )
  535.  
  536. (set #align-waitforpage
  537.   (cat
  538.     "Please wait until the page has been ejected and press 'Continue' "
  539.     "if the pattern has been printed successfully.\n\nIf it is incomplete "
  540.     "or smeared, press 'Abort' and restart BJC-Utility."
  541.   )
  542. )
  543.  
  544. (set #align7100-help
  545.   (cat
  546.     "Have a look at the patterns and "
  547.     "enter the numbers of columns in which red and "
  548.     "black lines are best aligned. "
  549.   )
  550. )
  551.  
  552. (set #align7100-step1
  553.   (cat
  554.     "Standard resolution is being adjusted. Referring to printed "
  555.     "Patterns A, B, C and D, enter the numbers of the columns "
  556.     "in which red and black lines are aligned."
  557.     "\n\n"
  558.     "A. Upper line: best alignment?"
  559.   )
  560. )
  561. (set #align7100-step2
  562.   (cat
  563.     "B. Left column: horizontal alignment\n\n"
  564.     "Enter the number of the column in which red and black lines "
  565.     "are best aligned. "
  566.   )
  567. )
  568. (set #align7100-step3
  569.   (cat
  570.     "C. Middle column: bi-directional alignment 1\n\n"
  571.     "Enter the number of the column in which red and black lines "
  572.     "are best aligned. "
  573.   )
  574. )
  575. (set #align7100-step4
  576.   (cat
  577.     "D. Right column: bi-directional alignment 2\n\n"
  578.     "Enter the number of the column in which red and black lines "
  579.     "are best aligned. "
  580.   )
  581. )
  582.  
  583. (set #align7100-nextpage
  584.   (cat
  585.     "In the next step the high-speed mode will be aligned.\n\n"
  586.     "Load one sheet of paper in the sheet feeder and click 'Continue'. "
  587.     "The patterns for high-speed mode will be printed."
  588.   )
  589. )
  590. (set #align7100-step5
  591.   (cat
  592.     "Look at the patterns "
  593.     "E, F, G and H and enter the number of the column "
  594.     "in which red and black lines align."
  595.     "\n\n"
  596.     "E. upper left column: best alignment?"
  597.   )
  598. )
  599. (set #align7100-step6
  600.   (cat
  601.     "F. upper right column: bi-directional alignment 1\n\n"
  602.     "Enter the number of the column in which red and black lines "
  603.     "are best aligned. "
  604.   )
  605. )
  606. (set #align7100-step7
  607.   (cat
  608.     "G. lower left column: horizontal alignment 2\n\n"
  609.     "Enter the number of the column in which red and black lines "
  610.     "are best aligned. "
  611.   )
  612. )
  613. (set #align7100-step8
  614.   (cat
  615.     "H. lower right column: bi-directional alignment 2\n\n"
  616.     "Enter the number of the column in which red and black lines "
  617.     "are best aligned. "
  618.   )
  619. )
  620. (set #align7000-step1
  621.   (cat
  622.     "Standard resolution is being adjusted. Referring to printed "
  623.     "Patterns A, B and C, enter the numbers of the columns "
  624.     "in which red and black lines are aligned. "
  625.     "\n\n"
  626.     "A. Upper line: best alignment?"
  627.   )
  628. )
  629. (set #align7000-step2
  630.   (cat
  631.     "B. Left column: horizontal alignment\n\n"
  632.     "Enter the number of the column in which red and black lines "
  633.     "are best aligned. "
  634.   )
  635. )
  636. (set #align7000-step3
  637.   (cat
  638.     "C. Left column: bi-directional alignment\n\n"
  639.     "Enter the number of the column in which red and black lines "
  640.     "are best aligned. "
  641.   )
  642. )
  643. (set #align7000-nextpage
  644.   (cat
  645.     "In the next step the high-resolution mode will be aligned.\n\n"
  646.     "Load one sheet of paper in the sheet feeder and click 'Continue'. "
  647.     "The patterns for high-resolution mode will be printed."
  648.   )
  649. )
  650. (set #align7000-step4
  651.   (cat
  652.     "Lood at the pattern D "
  653.     "and enter the number of the column "
  654.     "in which red and black lines align. "
  655.   )
  656. )
  657.  
  658. )
  659. )
  660.  
  661. ;printer names and numbers
  662.  
  663. (set #bjc1000 "Canon BJC-1000")
  664. (set #bjc2000 "Canon BJC-2000")
  665. (set #bjc4200 "Canon BJC-4200")
  666. (set #bjc4300 "Canon BJC-4300")
  667. (set #bjc4400 "Canon BJC-4400")
  668. (set #bjc6000 "Canon BJC-6000")
  669. (set #bjc7000 "Canon BJC-7000")
  670. (set #bjc7100 "Canon BJC-7100")
  671.  
  672. (set bjc1000 0)
  673. (set bjc2000 1)
  674. (set bjc4200 2)
  675. (set bjc4300 3)
  676. (set bjc4400 4)
  677. (set bjc6000 5)
  678. (set bjc7000 6)
  679. (set bjc7100 7)
  680.  
  681. ;-------------------
  682. ;procedures
  683.  
  684. ;variables for procedures
  685.  
  686. (set #bjl-head (cat  "BJLSTART\n"))
  687. (set #bjl-end  "\nBJLEND\n")
  688.  
  689. ;build a bjl command string
  690.  
  691. (procedure P_BUILDBJL #bjl-commands
  692.   (cat #bjl-head #bjl-commands #bjl-end)
  693. )
  694.  
  695. ;send a bjl command string to prt:
  696.  
  697. (procedure P_SENDBJLSTRING #bjl-string
  698.   (
  699. ;    (set #raw-init (cat "\x1B[" (+ 7 (strlen #bjl-string)) "\"r" "\x1B[K\x02\x00\x00\x1F"))
  700.     (set #bjl-init (cat "\x1B[K\x02\x00\x00\x1F"))
  701.     (textfile 
  702.       (dest "bjl-temp")
  703.       (append #bjl-init)
  704.       (append #bjl-string)
  705.     )
  706.     (run "printrawfile bjl-temp")
  707.     (delete "bjl-temp")
  708.   )
  709. )
  710.  
  711.  
  712. ;build and send a bjl command string
  713.  
  714. (procedure P_SENDBJL #bjl-sequence
  715.   (P_SENDBJLSTRING (P_BUILDBJL #bjl-sequence))
  716. )
  717.  
  718. ;generate a three-digit registration number
  719.  
  720. (procedure P_REGNUM #reg-number #reg-offset
  721.     (
  722.      (if (< #reg-number #reg-offset) 
  723.     (cat "-0" (- #reg-offset #reg-number))
  724.     ;else
  725.         (if (= #reg-number #reg-offset) 
  726.         ("000")
  727.         ;else
  728.             (cat "+0" (- #reg-number #reg-offset))
  729.     )
  730.      )
  731.     )
  732. )
  733.  
  734. ;-------------------
  735.  
  736. ;ask for the printer
  737.  
  738. (set printer-type
  739.    (askchoice
  740.       (prompt #which-printer)
  741.       (choices #bjc1000 #bjc2000 #bjc4200 #bjc4300 #bjc4400 #bjc6000 #bjc7000 #bjc7100 )
  742.       (help #command-help @askchoice-help)
  743.    )
  744. )
  745.  
  746. ;depending on the printer, ask for the required operation
  747.  
  748. (if (AND (>= printer-type bjc1000) (<= printer-type bjc2000))
  749.  
  750.  (
  751.    (set operation-mode
  752.      (askchoice
  753.       (prompt #which-command)
  754.       (choices #cleaning1 #cleaning2 #nozzlecheck )
  755.       (help #command-help @askchoice-help)
  756.      )
  757.    )
  758.    (set cleaning1   0)
  759.    (set cleaning2   1)
  760.    (set nozzlecheck 2)
  761.  )
  762.  
  763.  ;else
  764.  
  765. (if (AND (>= printer-type bjc4200) (<= printer-type bjc4400))
  766.  
  767.  (
  768.    (set operation-mode
  769.      (askchoice
  770.       (prompt #which-command)
  771.       (choices #cleaning1 #cleaning2 #nozzlecheck #setup )
  772.       (help #command-help @askchoice-help)
  773.      )
  774.    )
  775.    (set cleaning1   0)
  776.    (set cleaning2   1)
  777.    (set nozzlecheck 2)
  778.    (set setup       3)
  779.  )
  780.  
  781.  ;else
  782.  (
  783.    (set operation-mode
  784.      (askchoice
  785.       (prompt #which-command)
  786.       (choices #cleaning1 #cleaning2 #nozzlecheck #alignment )
  787.       (help #command-help @askchoice-help)
  788.      )
  789.    )
  790.    (set cleaning1   0)
  791.    (set cleaning2   1)
  792.    (set nozzlecheck 2)
  793.    (set alignment   3)
  794.  )
  795. )
  796. )
  797.  
  798. ;depending on the printer and operation, ask for options (if any) and build a 
  799. ;command string
  800. ;the command string is sent to "PRT:" in raw mode
  801.  
  802.  
  803. (if (= operation-mode cleaning1)
  804.  (
  805.    (if (AND (>= printer-type bjc1000) (<= printer-type bjc4400))
  806.      (
  807.       (message #clean-info)
  808.  
  809.       (P_SENDBJL "@Cleaning=1")
  810.  
  811.       (exit #clean-end (quiet))
  812.      )
  813.      ;else
  814.      (
  815.       (set clean-type
  816.         (askchoice
  817.           (prompt #which-clean)
  818.           (choices #clean-all #clean-black #clean-colour )
  819.           (help #command-help @askchoice-help)
  820.         )
  821.       ) 
  822.       (message #clean-info)
  823.       (if (= printer-type bjc7000)     
  824.        (
  825.         (if (= clean-type 0)
  826.  
  827.           (P_SENDBJL "CleaningColor=ALL\n@Cleaning=1")
  828.  
  829.         )
  830.         (if (= clean-type 1)
  831.  
  832.           (P_SENDBJL "CleaningColor=K\n@Cleaning=1")
  833.  
  834.         )
  835.         (if (= clean-type 2)
  836.  
  837.           (P_SENDBJL "CleaningColor=CMY\n@Cleaning=1")
  838.  
  839.         )
  840.        )
  841.        ;else
  842.        (
  843.         (if (= clean-type 0)
  844.  
  845.           (P_SENDBJL "@Cleaning=1ALL")
  846.  
  847.         )
  848.         (if (= clean-type 1)
  849.  
  850.           (P_SENDBJL "@Cleaning=1K")
  851.  
  852.         )
  853.         (if (= clean-type 2)
  854.  
  855.           (if (= printer-type bjc6000)     
  856.             (P_SENDBJL "@Cleaning=1COLOR")
  857.             ;else
  858.             (P_SENDBJL "@Cleaning=1CMY")
  859.           )
  860.  
  861.         )
  862.        )
  863.       )
  864.       (exit #clean-end (quiet))
  865.      )
  866.    )
  867.  )
  868. )
  869.  
  870. (if (= operation-mode cleaning2)
  871.  (
  872.    (message #clean2-info)
  873.  
  874.    (if (= printer-type bjc7000)     
  875.      (P_SENDBJL "CleaningColor=ALL\n@Cleaning=2")
  876.      ;else
  877.      (P_SENDBJL "@Cleaning=2")
  878.    )
  879.    (exit #clean-end (quiet))
  880.  )
  881. )
  882.  
  883. (if (= operation-mode nozzlecheck)
  884.  (
  885.    (message #nozzlecheck-info)
  886.    (P_SENDBJL "@TestPrint=NozzleCheck")
  887.    (exit #nozzlecheck-end (quiet))
  888.  )
  889. )
  890.  
  891. (if (= operation-mode setup)
  892.  (
  893.    (message #setup-info)
  894.    (set page-size
  895.      (askchoice
  896.         (prompt #setup-size)
  897.         (choices "A4" "Letter" )
  898.     (default 0)
  899.         (help #align7100-help @askchoice-help)
  900.      )
  901.    )
  902.    (if page-size
  903.      (P_SENDBJL "@Initialize=Table1")
  904.      ;else
  905.      (P_SENDBJL "@Initialize=Table3")
  906.    )
  907.    (exit #setup-end (quiet))
  908.  )
  909. )
  910.  
  911. (if (= operation-mode alignment)
  912.  (
  913.    (if (= printer-type bjc6000)
  914.     (
  915.      (message #alignauto-info)
  916.      (P_SENDBJL "@TestPrint=Auto")
  917.      (exit #alignauto-end (quiet))
  918.     )
  919.    )
  920.    (if (= printer-type bjc7100)
  921.     (
  922.      (message #alignmanual-info)
  923.      (P_SENDBJL "@TestPrint=Registration600")
  924.      (message #align-waitforpage)
  925.      (set align7100-value1
  926.        (askchoice
  927.         (prompt #align7100-step1)
  928.         (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
  929.     (default 3)
  930.         (help #align7100-help @askchoice-help)
  931.        )
  932.      )
  933.      (set align7100-value2
  934.        (askchoice
  935.         (prompt #align7100-step2)
  936.         (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
  937.     (default 7)
  938.         (help #align7100-help @askchoice-help)
  939.        )
  940.      )
  941.      (set align7100-value3
  942.        (askchoice
  943.         (prompt #align7100-step3)
  944.         (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
  945.     (default 7)
  946.         (help #align7100-help @askchoice-help)
  947.        )
  948.      )
  949.      (set align7100-value4
  950.        (askchoice
  951.         (prompt #align7100-step4)
  952.         (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
  953.     (default 7)
  954.         (help #align7100-help @askchoice-help)
  955.        )
  956.      )
  957.  
  958.      (set #align7100-600 
  959.        (cat
  960.     "ControlMode=Common\n"
  961.     "SetRegistration=Y0600A" (P_REGNUM align7100-value1 3) "\n"
  962.     "SetRegistration=X0600B" (P_REGNUM align7100-value2 7) "\n"
  963.     "SetRegistration=X0600C" (P_REGNUM align7100-value3 7) "\n"
  964.     "SetRegistration=X0600D" (P_REGNUM align7100-value4 7)
  965.        )
  966.      )
  967.      (P_SENDBJL #align7100-600)
  968.  
  969.      (message #align7100-nextpage)
  970.      (P_SENDBJL "@TestPrint=RegistrationHS")
  971.  
  972.      (set align7100-value5
  973.        (askchoice
  974.         (prompt #align7100-step5)
  975.         (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
  976.     (default 3)
  977.         (help #align7100-help @askchoice-help)
  978.        )
  979.      )
  980.      (set align7100-value6
  981.        (askchoice
  982.         (prompt #align7100-step6)
  983.         (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
  984.     (default 3)
  985.         (help #align7100-help @askchoice-help)
  986.        )
  987.      )
  988.      (set align7100-value7
  989.        (askchoice
  990.         (prompt #align7100-step7)
  991.         (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
  992.     (default 3)
  993.         (help #align7100-help @askchoice-help)
  994.        )
  995.      )
  996.      (set align7100-value8
  997.        (askchoice
  998.         (prompt #align7100-step8)
  999.         (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
  1000.     (default 3)
  1001.         (help #align7100-help @askchoice-help)
  1002.        )
  1003.      )
  1004.  
  1005.      (set #align7100-300 
  1006.        (cat
  1007.     "ControlMode=Common\n"
  1008.     "SetRegistration=X0300E" (P_REGNUM align7100-value5 3) "\n"
  1009.     "SetRegistration=X0300F" (P_REGNUM align7100-value6 3) "\n"
  1010.     "SetRegistration=X0300G" (P_REGNUM align7100-value7 3) "\n"
  1011.     "SetRegistration=X0300H" (P_REGNUM align7100-value8 3)
  1012.        )
  1013.      )
  1014.      (P_SENDBJL #align7100-300)
  1015.  
  1016.      (exit #alignmanual-end (quiet))
  1017.  
  1018.     )
  1019.    )
  1020.    (if (= printer-type bjc7000)
  1021.     (
  1022.      (message #alignmanual-info)
  1023.      (P_SENDBJL "@TestPrint=Registration600")
  1024.      (message #align-waitforpage)
  1025.      (set align7000-value1
  1026.        (askchoice
  1027.         (prompt #align7000-step1)
  1028.         (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
  1029.     (default 3)
  1030.         (help #align7100-help @askchoice-help)
  1031.        )
  1032.      )
  1033.      (set align7000-value2
  1034.        (askchoice
  1035.         (prompt #align7000-step2)
  1036.         (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
  1037.     (default 7)
  1038.         (help #align7100-help @askchoice-help)
  1039.        )
  1040.      )
  1041.      (set align7000-value3
  1042.        (askchoice
  1043.         (prompt #align7000-step3)
  1044.         (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
  1045.     (default 7)
  1046.         (help #align7100-help @askchoice-help)
  1047.        )
  1048.      )
  1049.  
  1050.      (set #align7000-600 
  1051.        (cat
  1052.     "SetRegistration=Y06A" (P_REGNUM align7000-value1 3) "\n"
  1053.     "SetRegistration=X06A" (P_REGNUM align7000-value2 7) "\n"
  1054.     "SetRegistration=B06A" (P_REGNUM align7000-value3 7) "\n"
  1055.        )
  1056.      )
  1057.      (P_SENDBJL #align7000-600)
  1058.  
  1059.      (message #align7000-nextpage)
  1060.      (P_SENDBJL "@TestPrint=Registration1200")
  1061.  
  1062.      (set align7000-value4
  1063.        (askchoice
  1064.         (prompt #align7000-step4)
  1065.         (choices "-1" " 0" "+1" )
  1066.     (default 1)
  1067.         (help #align7100-help @askchoice-help)
  1068.        )
  1069.      )
  1070.  
  1071.      (set #align7000-1200 
  1072.        (cat
  1073.     "SetRegistration=X12A" (P_REGNUM align7000-value4 1) "\n"
  1074.        )
  1075.      )
  1076.      (P_SENDBJL #align7000-1200)
  1077.  
  1078.      (exit #alignmanual-end (quiet))
  1079.  
  1080.     )
  1081.    )
  1082.  )
  1083. )
  1084.  
  1085.  
  1086.  
  1087. (exit (quiet))
  1088.  
  1089. ;we don't want any intro screen, so we put it at the end and it will
  1090. ;never appear :-)
  1091.  
  1092. (welcome)
  1093.  
  1094.  
  1095.  
  1096.